home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / jnfb88.zip / CFLOAT.ZIP / DNORMAL2.C < prev    next >
Text File  |  1987-06-23  |  228b  |  11 lines
  1. /* Listing 2: */
  2.  
  3. double x,y,z;
  4. main(){
  5.      x = 1.e-300;
  6.      y = x *(1. + 1.e-15);
  7.      z = x - y;
  8.      if (z == 0.) puts("z = 0, even though z = x - y and");
  9.      if (x == y) puts("x == y"); else puts("x != y");
  10. }
  11.